y

Procedure LeArquivo;

var
   DirInfo   :   SearchRec;
   ii,jj: integer;

label  10,20;

begin
    dividido:=false;
    If dividido then Out_Port_2(8) else Out_port_2(0);
    MyExitProc;
    ChDir(caminho);
    textBackground(4);
    TexTcolor(14);
20 :ClrScr;
    Write(DisKFree(0) div 1024,'KBytes livres       ');
    writeLn(DiskSize(0) div 1024,'Kbytes Total');
    writeLn;
    writeLn;
      begin
         FindFirst('*.NVC',Archive,DirInfo);
          ii:=0;
          while DosError=0  do
          begin
          If ii<20 then ii:=ii+1 else begin
            ii:=1;
            readLn;
            clrscr;
            end;
          for jj:=0 to 3 do
         begin
           GotoXY(5+20*jj,3+ii);
           write(DirInfo.name);
           FindNext(DirInfo);
           if DosError<>0 then jj:=3;
         end;
         end;
    end;
    writeLn;
    writeLn('  Tecle ENTER ou pise o pedal.');
    readln;
10: write(' entre o nome do arquivo que deseja recuperar:  ');
    READLN(No_arq);
    If No_arq<>'' then Leia_Arquivo
    else begin
      If (not Exist) and (No_arq<>'') then goto 10
      else begin
           write('     Entre Diretorio que deseja trabalhar:');
           readLn(caminho);
           if caminho<>'' then
           begin
             chDir(caminho);
             goto 20;
           end;
         end;
      end;
    ChDir('c:\ENMG');
    initialize;
    InicializeExitador;
    Escape:=False;
    saida:=false;
    reticulado2;
    MostraResultados;
    Mostracontrole;
    EscrevaQuadro;
    analiseDados;
    recupera;
    marcaescolha;
    opcoesOn:=true;
    opcoes;
    clear2;
end;

Procedure GravaArquivo;
var
   DirInfo   :   SearchRec;
   ii,jj: integer;

label  10,20;

begin
    MyExitProc;
    ChDir(caminho);
    textBackground(1);
    TexTcolor(14);
20 :ClrScr;
    Write(DisKFree(0) div 1024,'KBytes livres       ');
    writeLn(DiskSize(0) div 1024,'Kbytes Total');
    writeLn;
    writeLn;
      begin
         FindFirst('*.NVC',Archive,DirInfo);
          ii:=0;
          while DosError=0  do
          begin
          If ii<20 then ii:=ii+1 else begin
            ii:=1;
            readLn;
            clrscr;
            end;
          for jj:=0 to 3 do
         begin
           GotoXY(5+20*jj,3+ii);
           write(DirInfo.name);
           FindNext(DirInfo);
           if DosError<>0 then jj:=3;
         end;
         end;
    end;
    writeLn;
    writeLn('  Tecle ENTER, ou pise o pedal.');
    readln;
10 :write(' entre o nome do arquivo que deseja gravar:  ');
    READLN(No_arq);
    if No_arq<>'' then Grave_Dados
    else begin
           write('     Entre Diretorio que deseja trabalhar:');
           readLn(caminho);
           if caminho<>'' then
           begin
              chDir(caminho);
              goto 20;
           end;
         end;
    ChDir('c:\ENMG');
    initialize;
    InicializeExitador;
    Escape:=False;
    saida:=false;
    {Clear;}
    MostraResultados;
    mostraControle;
    analiseDados;
    OpcoesOn:=true;
    opcoes;
    marcaescolha;
    clear2;
end;
